home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / qm-util / qmail4.scr < prev    next >
Text File  |  1994-04-02  |  5KB  |  178 lines
  1. ;
  2. ;  QuickLearn Script generated at 02:25:48 on 08-30-88
  3. ;  May require editing before use.
  4. ;
  5. ;  -----------------------------------------------------------------
  6. ;
  7. TurnOn   8_BIT         ; defaults from QuickLearn...
  8. TurnOff  LINEFEED
  9. TurnOff  XON/XOFF
  10. TurnOff  NOISE
  11. TurnOff  MUSIC
  12. TurnOn   SCROLL
  13. TurnOff  PRINT
  14. TurnOff  ECHO
  15. ;                                                                     ;
  16. ; ---------------------------  DEFINITIONS  ------------------------- ;
  17. ;                                                                     ;
  18. String   QWKFILE REPFILE QWKPATH REPPATH FONTXT
  19. String   NAME    XFER    UDONE   DDONE   DOOR
  20.  
  21. Assign   QWKFILE   EXECNET.QWK           ; Name of QWK file
  22. Assign   REPFILE   EXECNET.REP           ; Name of REP file
  23. Assign   QWKPATH   L:\QMAIL\             ; DRIVE:\PATH of QWK file
  24. Assign   REPPATH   L:\QMAIL\             ; DRIVE:\PATH of REP file
  25. Assign   FONTXT    Exec-Mail-Stop        ; Unique text in FON file
  26. Assign   NAME      "John Friel XXX"      ; Your Name and Password on BBS
  27. Assign   DOOR      "QMAIL"               ; QMail Door # on BBS
  28. Assign   XFER      G                     ; Protocol to transfer with
  29. Assign   UDONE     N                     ; Upload done?
  30. Assign   DDONE     N                     ; Download done?
  31.  
  32. ; -------------------------  END DEFINITIONS  -----------------------
  33.  
  34. Restart:          ; Go here if the connection gets broken...
  35.  
  36.                   ; The DIAL command uses the ability to call a specific
  37.                   ; number, without knowing the exact position in the
  38.                   ; .FON file.  In my FON book, ExecNet has the unique text
  39.                   ; string stored in $FONTXT.  So, by using the new Tag Text
  40.                   ; and specifying this, it will dial this number even
  41.                   ; if the FON book is sorted.  Note the 'T' prefix...
  42.  
  43. If $ONLINE SkipD  ; Skip the dial if already online
  44. Dial "T$FONTXT"   ;
  45.                   ; Note: This Script does NOT have to be linked to the
  46.                   ; entry in the FON book, but it makes it easier to
  47.                   ; edit if it is.  Just press 'V' when the scrollbar is
  48.                   ; on the RFM QwikNet entry!
  49. SkipD:
  50. TimeOut  300  QQ  ; Set Waitfor timeout to 300 seconds. {5 minutes}
  51. Goto     TOP      ; Jump to the start of the main body.
  52.  
  53.  
  54. QQ:                             ; Something timed out
  55. If $OffLine Restart             ; are we offline?  If so, restart script
  56. Send "^M"
  57. If "$DDONE" = "N"  DownSection  ; Go do Download again
  58. If "$UDONE" = "N"  UpSection    ; Go do Upload again
  59.  
  60. ; If we get here, then both the upload and download were completed, but
  61. ; we didn't get offline correctly, so lets go do the endgame and quit
  62.  
  63. Goto EndGame
  64.  
  65. ;----;
  66.  TOP:    ; Main Body of the NetMail Script
  67. ;----;
  68.  
  69.          ; Set up all Question/Answer responses that might
  70.          ; be generated by the QwikNet hub.
  71.  
  72. ;-----------------------------------------------------------;
  73. ;            ---- PROMPT ----               -- REPLY --     ;
  74. ;-----------------------------------------------------------;
  75. When
  76. When     "Press (Enter) to continue?"       "^M"
  77. When     "graphics (Enter)=no?"             "Y Q^M"
  78. When     "What is your first name?"         "$NAME^M"
  79. When     "Since 'Last Read' (Enter)=yes?"   "N^M"
  80. When     "Check your Mail for messages"     "N^M"
  81. When     "Conference members (Enter)=no?"   "N^M"
  82. When     "More (Y), (N), (NS)"              "N^M"
  83. When     "Enter Language #"                 "2^M"
  84. When     "(H)elp, More?"                    "N^M"
  85. When     "NO CARRIER"                       Restart  ;(a Goto label)
  86.  
  87. Waitfor  "Command?"
  88. Delay    100
  89. Send     "OPEN $DOOR^M"
  90.  
  91. ;-----------;
  92.  ReDownload:
  93. ;-----------;
  94. Waitfor  "<COMMAND>"
  95. Delay    100
  96.  
  97. ;------------;
  98.  DownSection:
  99. ;------------;
  100. Send     "D^M"
  101.  
  102. When
  103. When     "NO CARRIER"         Restart
  104. When     "<NO TRANSFER>"      DoRepsNow
  105.  
  106. Waitfor  "<DLASK>"
  107. Delay    100
  108. Send     "Y^M"
  109.  
  110. Waitfor  "<DOWNLOAD>"
  111. Delay    100
  112. Send     "^M"
  113.  
  114. Download $XFER $QWKPATH$QWKFILE
  115. If       $SUCCESS  SuccessDown
  116. Goto     ReDownload
  117.  
  118. ;------------;
  119.  SuccessDown:
  120. ;------------;
  121. Assign   DDONE Y         ; Download was successful
  122. Goto     DoRepsNow
  123.  
  124. ;----------;
  125.  UpSection:
  126. ;----------;
  127. Send     "^M"
  128. Waitfor  "<COMMAND>"
  129. Delay    100
  130.  
  131. ;----------;
  132.  DoRepsNow:
  133. ;----------;
  134.  
  135. When
  136. When     "NO CARRIER"      Restart
  137. Exist    $REPPATH$REPFILE  SendEm
  138. Goto     AllDone
  139.  
  140. ;-------;
  141.  SendEm:               ; there are replies to send!
  142. ;-------;
  143. Delay    1000
  144. Send     "^M"
  145.  
  146. Waitfor  "<COMMAND>"
  147. Send     "U^M"
  148. Delay    100
  149.  
  150. Waitfor  "<UPLOAD>"
  151. Pause    1000
  152.  
  153. Upload   $XFER $REPPATH$REPFILE
  154. If       $FAIL  UpSection
  155.  
  156. Assign   UDONE Y                  ; Upload of REP is OK
  157.  
  158. Dos      "Del $REPPATH$REPFILE"   ; now, delete the REP file...
  159.  
  160. ;--------;
  161.  AllDone:
  162. ;--------;
  163. Waitfor  "<COMMAND>"
  164. Pause    1000
  165.  
  166. Send     "G^M"
  167. Pause    2000
  168.  
  169. ;--------;
  170.  EndGame:
  171. ;--------;
  172. Hangup                   ; Hangup the modem
  173. Delay    1000
  174. Send     "ATM0H1^M"      ; Place the modem "off-hook"
  175.  
  176. System   Y               ; Exit back to the Batch file to insert new msgs.
  177. Exit                     ; End of Script
  178.